home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS066.dsk / METRIC KITCHEN.bas < prev    next >
BASIC Source File  |  2012-02-16  |  5KB  |  126 lines
  1. 0  PRINT : HTAB 5: PRINT I;" TEASPOONS = ";R;" MILLILITERS"
  2. 5  REM **************************
  3. 10  REM ***TABLE OF CONTENTS*******
  4. 15  REM *INTRODUCTION..LINES 0-200*
  5. 16  REM *DATA AND LOOP SETUPS..200-260*
  6. 20  REM *INDEX OF MEASUREMENTS..500-615*
  7. 25  REM *PROGRAM DRIVE..700-800*
  8. 30  REM *ANSWER PRINTOUTS..1000-END*
  9. 35  REM PREPARED BY MAX J.NAREFF,SAN FRANCISCO,CA1979*
  10. 36  HOME : GOSUB 1900
  11. 40  HTAB 16: PRINT "INTRODUCTION"
  12. 45  HTAB 15: PRINT "-------------"
  13. 50  HTAB 5: PRINT "THIS IS ONE OF A SERIES OF PROGRAMS"
  14. 55  PRINT "FOR THE CONVERSION OF MEASUREMENTS TO"
  15. 56  PRINT "AND FROM THE METRIC SYSTEM.HERE SOME OF"
  16. 57  PRINT "THE MORE COMMON MEASUREMENTS USED IN THE"
  17. 58  PRINT "KITCHEN ARE PRESENTED.FRACTIONAL VALUES"
  18. 59  PRINT "MAY BE ENTERED.FOR A MORE EXTENSIVE LIST"
  19. 60  PRINT "CONSULT THE OTHER PROGRAMS IN THE LIBRARY"
  20. 70  HTAB 8: PRINT "HOW THE PROGRAM OPERATES"
  21. 72  HTAB 8: PRINT "------------------------"
  22. 75  HTAB 3: PRINT "A LIST OF MEASUREMENTS IS PRESENTED"
  23. 80  PRINT "ON THE NEXT PAGE.NOTE THE INDEX NUMB"
  24. 85  PRINT "ER.ENTER THAT NUMBER WHEN QUERIED."
  25. 90  PRINT "THEN ENTER THE VALUE TO BE CONVERTED."
  26. 95  HTAB 5: PRINT "777 ENDS THE PROGRAM"
  27. 96  HTAB 5: PRINT "888 RETURNS THE LIST"
  28. 100  VTAB 24: HTAB 8: PRINT "PRESS RETURN FOR NEXT PAGE";: GET A$: HOME 
  29. 200  DIM C(18): REM DIM.FOR CONVESION FACTORS
  30. 205 : REM DATA TABLE FOR CONVERSION FACTORS
  31. 210  DATA  4.9288,14.7865,28.413,284.13,568.26,1136.52,4.546
  32. 215  DATA  .22,28.35,.4536,2.2046,2.54,.3937
  33. 220  DATA  6.452,929.03,8361.3
  34. 230 : REM INDEX LOOP FOR DATA READ
  35. 240  FOR N = 1 TO 16
  36. 250  READ C(N)
  37. 260  NEXT 
  38. 495 : REM LIST OR INDEX OF MEASUREMENTS
  39. 500  HOME 
  40. 510  HTAB 10: PRINT "KITCHEN-AID METRICS"
  41. 515  HTAB 10: PRINT "-------------------"
  42. 520  PRINT "(1)TEASPOONS TO MILLILITERS"
  43. 525  PRINT "(2)TABLESPOONS TO MILLILITERS"
  44. 530  PRINT "(3)OUNCES(LIQ) TO MILLILITERS"
  45. 535  PRINT "(4)CUPS TO MILLILITERS"
  46. 540  PRINT "(5)PINTS TO MILLILITERS"
  47. 545  PRINT "(6)QUARTS TO CUBIC CENTIMETERS"
  48. 550  PRINT "(7)GALLONS TO LITERS"
  49. 555  PRINT "(8)LITERS TO GALLONS"
  50. 560  PRINT "(9)OUNCES(DRY) TO GRAMS"
  51. 565  PRINT "(10)POUNDS TO KILOGRAMS"
  52. 570  PRINT "(11)KILOGRAMS TO POUNDS"
  53. 575  PRINT "(12)INCHES TO CENTIMETERS"
  54. 580  PRINT "(13)CENTIMETERS TO INCHES"
  55. 585  PRINT "(14)SQ.INCHES TO SQ.CENTIMETERS"
  56. 590  PRINT "(15)SQ.FEET TO SQ.CENTIMETERS"
  57. 595  PRINT "(16)SQ.YARDS TO SQ.CENTIMETERS"
  58. 600  PRINT "(17)FAHRENHEIT TO CELSIUS"
  59. 605  PRINT "(18)CELSIUS TO FAHRENHEIT": PRINT 
  60. 610  PRINT "NOTE INDEX NUMBER OF DESIRED CALCULATION.WAIT FOR NEXT PAGE"
  61. 615  VTAB 24: HTAB 10: PRINT "PRESS RETURN FOR NEXT PAGE";: GET A$: HOME 
  62. 700 : REM  TO END PROGRAM
  63. 705  PRINT "TO END PROGRAM ENTER 777"
  64. 709 : REM  TO RETURN TO INDEX OF MEASUREMENTS
  65. 710  PRINT : PRINT "FOR ACCESS TO INDEX ENTER 888": PRINT 
  66. 715  HTAB 3: PRINT "ENTER INDEX NUMBER OF DESIRED CONVERSION";
  67. 720  INPUT N
  68. 730  IF N = 777  THEN  END 
  69. 735  IF N = 888  THEN 500
  70. 740  PRINT : HTAB 5: PRINT "VALUE TO BE CONVERTED";
  71. 750  INPUT I
  72. 760  IF I = 777  THEN  END 
  73. 765  IF I = 888  THEN 500
  74. 770 : REM EQUATION FOR CONVERSION OF INPUT VALUE TO ANSWER
  75. 780 R = I *C(N)
  76. 790 : REM DIRECT CALCULATION TO TO PROPER NAME FOR ANSWER PRINTOUT
  77. 800  ON N GOTO 1000,1050,1100,1150,1200,1250,1300,1350,1400,1450,1500,1550,1600,1650,1700,1750,1800,1850
  78. 1000  PRINT : HTAB 5: PRINT I;" TEASPOONS = ";R;" MILLILITERS"
  79. 1010  GOTO 740
  80. 1050  PRINT : HTAB 5: PRINT I;" TABLESPOONS = ";R;" MILLILITERS"
  81. 1060  GOTO 740
  82. 1100  PRINT : HTAB 5: PRINT I;" OUNCES (LIQ) = ";R;" MILLILITERS"
  83. 1110  GOTO 740
  84. 1150  PRINT : HTAB 5: PRINT I;" CUPS = ";R;" MILLILITERS"
  85. 1160  GOTO 740
  86. 1200  PRINT : HTAB 5: PRINT I;" PINTS = ";R;" MILLILITERS"
  87. 1210  GOTO 740
  88. 1250  PRINT : HTAB 5: PRINT I;" QUARTS = ";R;" CUBIC CENTIMETERS"
  89. 1260  GOTO 740
  90. 1300  PRINT : HTAB 5: PRINT I;" GALLONS = ";R;" LITERS"
  91. 1310  GOTO 740
  92. 1350  PRINT : HTAB 5: PRINT I;" LITTERS = ";R;" GALLONS"
  93. 1360  GOTO 740
  94. 1400  PRINT : HTAB 5: PRINT I;" OUNCES (DRY) = ";R;" GRAMS"
  95. 1410  GOTO 740
  96. 1450  PRINT : HTAB 5: PRINT I;" POUNDS = ";R;" KILLOGRAMS"
  97. 1460  GOTO 740
  98. 1500  PRINT : HTAB 5: PRINT I;" KILLOGRAMS = ";R;" POUNDS"
  99. 1510  GOTO 740
  100. 1550  PRINT : HTAB 5: PRINT I;" INCHES = ";R;" CENTIMETERS"
  101. 1560  GOTO 740
  102. 1600  PRINT : HTAB 5: PRINT I;" CENTIMETERS = ";R;" INCHES"
  103. 1610  GOTO 740
  104. 1650  PRINT : HTAB 5: PRINT I;" SQU.INCHES = ";R;" SQU.CENTIMETERS"
  105. 1660  GOTO 740
  106. 1700  PRINT : HTAB 5: PRINT I;" SQU.FEET = ";R;" SQU.CENTIMETERS"
  107. 1710  GOTO 740
  108. 1750  PRINT : HTAB 5: PRINT I;" SQU.YARDS = ";R;" SQU.CENTIMETERS"
  109. 1760  GOTO 740
  110. 1800 R = (I -32) *(5/9)
  111. 1810  PRINT : HTAB 5: PRINT I;" FAHRENHEIT = ";R;"  CELSIUS"
  112. 1820  GOTO 740
  113. 1850 R = ((9/5) *I) +32
  114. 1860  PRINT : HTAB 5: PRINT I;" CELSIUS = ";R;" FAHRENHEIT"
  115. 1870  GOTO 740
  116. 1900  VTAB 5: PRINT "METRICS KITCHEN"
  117. 1910  PRINT : PRINT "BY MAX J. NAREFF"
  118. 1920  PRINT "DATE: 7-79"
  119. 1930  PRINT : PRINT : PRINT "THIS PROGRAM DOES COMMON METRIC"
  120. 1940  PRINT "CONVERSIONS FOR ITEMS IN THE KITCHEN"
  121. 1950  VTAB 20: PRINT "PRESS ESC TO END"
  122. 1960  PRINT : PRINT "<<PRESS SPACE BAR TO CONTINUE..>>"
  123. 1970  IF  PEEK( -16384) = 27  THEN 2000
  124. 1980  CALL  -756: IF  PEEK( -16384) < >32  THEN 1900
  125. 1990  HOME : POKE  -16368,0: RETURN 
  126. 2000  HOME : END